home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / C-D / DeveloperStax.cpt / Developer Stack 1.1 / background_2202.txt < prev    next >
Text File  |  1989-02-26  |  8KB  |  340 lines
  1. -- background: 2202 from stack: in.1
  2. -- bmap block id: 12879
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: Functions
  6. ----- HyperTalk script -----
  7. on opencard
  8.   put (the number of this card - the number of first card of this background+1) into field "PageNumber"
  9.   set scroll of field description to 0
  10. end opencard
  11.  
  12.  
  13.  
  14. -- part 2 (field)
  15. -- low flags: 00
  16. -- high flags: 0007
  17. -- rect: left=56 top=69 right=299 bottom=491
  18. -- title width / last selected line: 0
  19. -- icon id / first selected line: 0 / 0
  20. -- text alignment: 0
  21. -- font id: 3
  22. -- text size: 9
  23. -- style flags: 0
  24. -- line height: 12
  25. -- part name: description
  26.  
  27.  
  28. -- part 3 (field)
  29. -- low flags: 01
  30. -- high flags: 0000
  31. -- rect: left=54 top=23 right=57 bottom=337
  32. -- title width / last selected line: 0
  33. -- icon id / first selected line: 0 / 0
  34. -- text alignment: 0
  35. -- font id: 2
  36. -- text size: 24
  37. -- style flags: 0
  38. -- line height: 32
  39. -- part name: Name
  40.  
  41.  
  42. -- part 6 (button)
  43. -- low flags: 00
  44. -- high flags: 2000
  45. -- rect: left=456 top=301 right=329 bottom=493
  46. -- title width / last selected line: 0
  47. -- icon id / first selected line: 11645 / 11645
  48. -- text alignment: 1
  49. -- font id: 0
  50. -- text size: 12
  51. -- style flags: 0
  52. -- line height: 16
  53. -- part name: Return
  54. ----- HyperTalk script -----
  55. on mouseUp
  56.   if the optionkey is down then pass mouseup
  57.   visual effect iris close
  58.   go first card
  59. end mouseUp
  60.  
  61.  
  62.  
  63. -- part 8 (button)
  64. -- low flags: 00
  65. -- high flags: 2000
  66. -- rect: left=280 top=306 right=331 bottom=307
  67. -- title width / last selected line: 0
  68. -- icon id / first selected line: 1013 / 1013
  69. -- text alignment: 1
  70. -- font id: 0
  71. -- text size: 12
  72. -- style flags: 0
  73. -- line height: 16
  74. -- part name: Next
  75. ----- HyperTalk script -----
  76. on mouseUp
  77.   if the optionkey is down then pass mouseup
  78.   visual effect wipe left
  79.   go to next card
  80. end mouseUp
  81.  
  82.  
  83.  
  84. -- part 9 (button)
  85. -- low flags: 00
  86. -- high flags: 2000
  87. -- rect: left=228 top=306 right=331 bottom=255
  88. -- title width / last selected line: 0
  89. -- icon id / first selected line: 1014 / 1014
  90. -- text alignment: 1
  91. -- font id: 0
  92. -- text size: 12
  93. -- style flags: 0
  94. -- line height: 16
  95. -- part name: Prev
  96. ----- HyperTalk script -----
  97. on mouseUp
  98.   if the optionkey is down then pass mouseup
  99.   visual effect wipe right
  100.   go to previous card
  101. end mouseUp
  102.  
  103.  
  104.  
  105. -- part 10 (field)
  106. -- low flags: 01
  107. -- high flags: 0000
  108. -- rect: left=255 top=311 right=327 bottom=282
  109. -- title width / last selected line: 0
  110. -- icon id / first selected line: 0 / 0
  111. -- text alignment: 1
  112. -- font id: 3
  113. -- text size: 12
  114. -- style flags: 0
  115. -- line height: 16
  116. -- part name: PageNumber
  117.  
  118.  
  119. -- part 11 (button)
  120. -- low flags: 00
  121. -- high flags: 2004
  122. -- rect: left=2 top=74 right=117 bottom=49
  123. -- title width / last selected line: 0
  124. -- icon id / first selected line: 14767 / 14767
  125. -- text alignment: 1
  126. -- font id: 0
  127. -- text size: 12
  128. -- style flags: 0
  129. -- line height: 16
  130. -- part name: About...
  131. ----- HyperTalk script -----
  132. on mouseUp
  133.   if the optionkey is down then pass mouseup
  134.   visual iris open to gray
  135.   visual iris close to black
  136.   visual iris open to gray
  137.   visual iris close
  138.   go background information
  139. end mouseUp
  140.  
  141.  
  142.  
  143. -- part 12 (button)
  144. -- low flags: 00
  145. -- high flags: 2004
  146. -- rect: left=2 top=119 right=162 bottom=49
  147. -- title width / last selected line: 0
  148. -- icon id / first selected line: 29114 / 29114
  149. -- text alignment: 1
  150. -- font id: 0
  151. -- text size: 12
  152. -- style flags: 0
  153. -- line height: 16
  154. -- part name: Back
  155. ----- HyperTalk script -----
  156. on mouseUp
  157.   if the optionkey is down then pass mouseup
  158.   visual barn door close to black
  159.   visual barn door open
  160.   pop card
  161. end mouseUp
  162.  
  163.  
  164.  
  165. -- part 13 (button)
  166. -- low flags: 00
  167. -- high flags: 2004
  168. -- rect: left=2 top=164 right=207 bottom=49
  169. -- title width / last selected line: 0
  170. -- icon id / first selected line: 1011 / 1011
  171. -- text alignment: 1
  172. -- font id: 0
  173. -- text size: 12
  174. -- style flags: 0
  175. -- line height: 16
  176. -- part name: Home
  177. ----- HyperTalk script -----
  178. on mouseUp
  179.   if the optionkey is down then pass mouseup
  180.   go to first card of home
  181. end mouseUp
  182.  
  183.  
  184.  
  185. -- part 14 (button)
  186. -- low flags: 00
  187. -- high flags: 2004
  188. -- rect: left=2 top=209 right=252 bottom=49
  189. -- title width / last selected line: 0
  190. -- icon id / first selected line: 1000 / 1000
  191. -- text alignment: 1
  192. -- font id: 0
  193. -- text size: 12
  194. -- style flags: 0
  195. -- line height: 16
  196. -- part name: Open Stack
  197. ----- HyperTalk script -----
  198. on mouseUp
  199.   if the optionkey is down then pass mouseup
  200.   domenu "open stack..."
  201. end mouseUp
  202.  
  203.  
  204.  
  205. -- part 15 (button)
  206. -- low flags: 00
  207. -- high flags: 2004
  208. -- rect: left=2 top=254 right=297 bottom=49
  209. -- title width / last selected line: 0
  210. -- icon id / first selected line: 17343 / 17343
  211. -- text alignment: 1
  212. -- font id: 0
  213. -- text size: 12
  214. -- style flags: 0
  215. -- line height: 16
  216. -- part name: Launch Application
  217. ----- HyperTalk script -----
  218. on mouseUp
  219.   if the optionkey is down then pass mouseup
  220.   visual venetian blinds to gray
  221.   visual venetian blinds to black
  222.   visual venetian blinds to gray
  223.   visual venetian blinds
  224.  
  225.   go to background "Mini Hyperstation"
  226. end mouseUp
  227.  
  228.  
  229.  
  230. -- part 16 (button)
  231. -- low flags: 00
  232. -- high flags: 2004
  233. -- rect: left=2 top=299 right=342 bottom=49
  234. -- title width / last selected line: 0
  235. -- icon id / first selected line: 21786 / 21786
  236. -- text alignment: 1
  237. -- font id: 0
  238. -- text size: 12
  239. -- style flags: 0
  240. -- line height: 16
  241. -- part name: Menus On
  242. ----- HyperTalk script -----
  243. on mouseUp
  244.   if the optionkey is down then pass mouseup
  245.   If the short name of the target is "Menus On" then
  246.     set the name of the target to "Menus Off"
  247.     show menubar
  248.   else
  249.     set the name of the target to "Menus On"
  250.     hide menubar
  251.   end if
  252. end mouseUp
  253.  
  254.  
  255.  
  256. -- part 17 (button)
  257. -- low flags: 00
  258. -- high flags: A003
  259. -- rect: left=80 top=305 right=328 bottom=203
  260. -- title width / last selected line: 0
  261. -- icon id / first selected line: 0 / 0
  262. -- text alignment: 1
  263. -- font id: 0
  264. -- text size: 12
  265. -- style flags: 0
  266. -- line height: 16
  267. -- part name: Install Function
  268. ----- HyperTalk script -----
  269. on mouseup
  270.   if the optionkey is down then pass mouseup
  271.   put "This will install this function into a stack of your choice"
  272.   put "Please select the target stack for installation"
  273.   put filename("STAK") into targetStack
  274.   if targetStack is empty then
  275.     hide message
  276.     play oops
  277.     exit mouseup
  278.   end if
  279.   put "Updating stack.  Please wait..."
  280.   set cursor to 4
  281.   put the script of stack targetStack into originalScript
  282.   put field "name" into FunctionName
  283.  
  284.   if FunctionName is in originalScript then
  285.     play oops
  286.     answer "This Function is aleady installed in this script"
  287.     hide message
  288.     exit mouseup
  289.   end if
  290.  
  291.   put the script of this card into functionScript
  292.   put originalScript into newScript
  293.   put return&return&"--Beginning of "&FunctionName after newScript
  294.   put return&functionScript after newScript
  295.   put return&"--End of "&FunctionName after newScript
  296.   set the script of stack targetstack to newScript
  297.   hide message
  298. end mouseup
  299.  
  300.  
  301.  
  302. -- part 18 (button)
  303. -- low flags: 00
  304. -- high flags: A003
  305. -- rect: left=322 top=305 right=328 bottom=445
  306. -- title width / last selected line: 0
  307. -- icon id / first selected line: 0 / 0
  308. -- text alignment: 1
  309. -- font id: 0
  310. -- text size: 12
  311. -- style flags: 0
  312. -- line height: 16
  313. -- part name: Remove Function
  314. ----- HyperTalk script -----
  315. on mouseup
  316.   if the optionkey is down then pass mouseup
  317.   put "Please select the stack from which to remove this function"
  318.   put filename("STAK") into targetStack
  319.   if targetStack is empty then
  320.     play oops
  321.     hide message
  322.     exit mouseup
  323.   end if
  324.   set cursor to 4
  325.   put the script of stack targetStack into originalScript
  326.   put field "name" into FunctionName
  327.   if functionName is not in originalScript then
  328.     play oops
  329.     answer "This function is not installed in this stack!"
  330.     hide message
  331.     exit mouseup
  332.   end if
  333.   put "Updating stack.  Please wait..."
  334.   put offset("--Beginning of "&FunctionName,originalScript)-2 into beginDelete
  335.   put offset("--End of "&FunctionName,originalScript) +length("--End of "&FunctionName) into endDelete
  336.   delete char beginDelete to endDelete of originalScript
  337.   set the script of stack targetStack to originalScript
  338.   hide message
  339. end mouseup
  340.